home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 19
/
Mac Magazin and MacEasy Magazine CD - Issue 19.iso
/
Spiele & Edutainment
/
BMAPEdit ƒ
/
BMAPEdit 3.0
/
BMAPEdit 3.0.rsrc
/
PREC_103
< prev
next >
Wrap
Text File
|
1996-01-31
|
2KB
|
89 lines
/BMAPEditdict 250 dict def
BMAPEditdict begin
/drawcolorBMAPterrain
{ % stack: T, L, W
/W exch def
/L exch def
/T exch def
/pts_per_sqr W map_W div 8 mul def
/idx 0 def
[/Indexed /DeviceRGB 15
<FFFFFF 000000 00FFFF 00FF00 008000 FFFF00 FF6402 FF0000
0000FF A4A4A4 6D6D6D 373737 C1A56B 815A47 562C05 402323>] setcolorspace
gsave
.2 setlinewidth 1 setlinecap 1 setlinejoin
W W scale
L W div T W div translate
/ImageType 1 def
/Width map_W def
/Height map_W def
/ImageMatrix [map_W 0 0 map_W 0 0] def
/DataSource { terrain idx get /idx idx 1 add def } def
/BitsPerComponent 4 def
/Decode [15 0] def
BMAPEditdict image
grestore
/DeviceGray setcolorspace
gsave
L T translate
0 0 moveto W 0 rlineto 0 W rlineto -1 W mul 0 rlineto
closepath 0 setgray stroke
grestore
} def
/drawBMAPterrain
{ % stack: T, L, W
/W exch def
/L exch def
/T exch def
/pts_per_sqr W map_W div 8 mul def
/idx 0 def
gsave
.2 setlinewidth 1 setlinecap 1 setlinejoin
W W scale
L W div T W div translate
map_W map_W 1 [map_W 0 0 map_W 0 0] { terrain idx get /idx idx 1 add def } image
grestore
gsave
L T translate
0 0 moveto W 0 rlineto 0 W rlineto -1 W mul 0 rlineto
closepath 0 setgray stroke
grestore
} def
/draw_PB_range
{ % stack: x, y
/y exch map_T sub def
/x exch map_L sub def
gsave
L T translate
x pts_per_sqr mul pts_per_sqr 2 div add
y pts_per_sqr mul pts_per_sqr 2 div add
translate
newpath 0 0 pts_per_sqr 7.5 mul 0 360 arc
.2 setlinewidth 1 setgray gsave stroke grestore
[ pts_per_sqr pts_per_sqr ] 0 setdash 0 setgray stroke
grestore
} def
/show_title
{ % stack: x, y, title
/title exch def
gsave
translate
title stringwidth pop -2 div 0 moveto 1 -1 scale title show
grestore
} def
/show_info
{ % stack: x, y, title
/title exch def
moveto
gsave
1 -1 scale title show
grestore
} def
end